home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / C-Communications / (c)c8.d64 / sysop's mail (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  81 lines
  1. 1 REM SAVE"@0:SYSOP MAIL",8
  2. 5 DIMTT$(200)
  3. 10 POKE53280,0:POKE53281,0:PRINT"[147]    [151]";
  4. 20 OPEN1,8,15:OPEN2,8,2,"SYSOP,S,R":INPUT#2,SY$:CLOSE2
  5. 25 INPUT#1,A,B$,C,D:IFA>0THENPRINTA;"";B$;"[146]";C;D:END
  6. 30 SY=VAL(SY$):IFSY=0THENPRINT"[211]YSOP HAS NO MAIL.":END
  7. 31 PRINT"[211]YSOP HAS "SY$" LETTERS."
  8. 40 FORW=1TOSY
  9. 50 W$=STR$(W):W$=RIGHT$(W$,LEN(W$)-1):W$="ES"+W$+"/999,S,R"
  10. 60 CLOSE2:OPEN2,8,2,W$
  11. 70 M3=5:INPUT#1,A,B$,C,D:IFA>0THENPRINTA;"";B$;"[146]";C;D
  12. 71 INPUT#2,S$,F$,T$,D$:PRINT" [198]ROM: ";F$:PRINT"   [212]O: ";T$:PRINT"[212]ITLE: ";S$
  13. 72 PRINT" [196]ATE: ";D$;""
  14. 73 TT$(W*2-1)=S$:TT$(W*2)=F$
  15. 80 INPUT#2,A$
  16. 85 IFA$="END"THEN140
  17. 90 FORX=1TOLEN(A$):B$=MID$(A$,X,1)
  18. 100 IFB$=""THENB$=CHR$(34):PRINTB$;CHR$(20);
  19. 110 PRINTB$;" [146][157]";:NEXTX:PRINT" "
  20. 120 M3=M3+1:IFM3>15THENPRINT"[210]ETURN TO [195]ONTINUE - >  [146][157]";:GOSUB1000:M3=0:PRINT" "
  21. 130 GOTO80
  22. 140 CLOSE2:PRINT"[210]ETURN FOR NEXT LETTER ->  [146][157]";:GOSUB1000:PRINT" ":NEXTW
  23. 150 PRINT"[147]         [211]UMMARY OF [205]ESSAGES"
  24. 151 PRINT"         [163][163][163][163][163][163][163] [163][163] [163][163][163][163][163][163][163][163]"
  25. 160 PRINT"## [211]UBJECT               [211]ENDER"
  26. 161 PRINT"[163][163] [163][163][163][163][163][163][163]               [163][163][163][163][163][163]"
  27. 170 W=0:M3=0:FORX=1TOSY*2 STEP2
  28. 171 W=W+1:X$=STR$(W):X$=RIGHT$(X$,LEN(X$)-1)
  29. 172 IFLEN(X$)=1THENX$="0"+X$
  30. 173 TT$(X+1)=LEFT$(TT$(X+1),14)
  31. 180 PRINTX$" "TT$(X);TAB(25);TT$(X+1)
  32. 181 M3=M3+1
  33. 182 IFM3>10THENPRINT"[208]RESS [210]ETURN TO [195]ONTINUE ->  [146][157]";:GOSUB1000:PRINT" ":M3=0
  34. 190 NEXTX
  35. 195 PRINT"[208]RESS [210]ETURN TO [195]ONTINUE ->  [146][157]";:GOSUB1000:PRINT" "
  36. 200 PRINT"[208]RINT OUTS AND [211]CRATCHES"
  37. 201 PRINT"[163][163][163][163][163] [163][163][163][163] [163][163][163] [163][163][163][163][163][163][163][163][163]"
  38. 207 PRINT"[208][146]RINT OUT A MESSAGE"
  39. 209 PRINT"[203][146]ILL [193][204][204] MESSAGES"
  40. 210 PRINT"[210][146]EVIEW [200]EADINGS"
  41. 211 PRINT"[209][146]UIT THIS PROGRAM"
  42. 212 PRINT"[208], [203], [210] OR [209] ->  [146][157]";
  43. 213 GETC$:IFC$=""THEN213
  44. 214 IFC$="P"ORC$="[208]"THENPRINT"[208]":GOTO220
  45. 216 IFC$="R"ORC$="[210]"THENPRINT"[210]":GOTO150
  46. 217 IFC$="K"ORC$="[203]"THENPRINT"[203]":GOTO600
  47. 218 IFC$="Q"ORC$="[209]"THENPRINT"[209]":PRINT"  [209]UITING":END
  48. 219 GOTO213
  49. 220 PRINT"[218]ERO [193]BORTS..."
  50. 230 INPUT"[201]NPUT NUMBER OF MESSAGE TO [208]RINT  0[157][157][157]";MG
  51. 240 IFMG=0THEN200
  52. 250 IFMG>SYORMG<0THENPRINT"[201]NVALID [205]ESSAGE [206]UMBER":GOTO220
  53. 260 MG$=STR$(MG):MG$=RIGHT$(MG$,LEN(MG$)-1)
  54. 270 MG$="ES"+MG$+"/999,S,R"
  55. 280 OPEN4,4,7:OPEN2,8,2,MG$
  56. 281 INPUT#2,S$,F$,T$,D$:A$=" [198]ROM: "+F$:PRINTA$:PRINT#4,A$
  57. 282 A$="   [212]O: "+T$:PRINTA$:PRINT#4,A$
  58. 283 A$="[212]ITLE: "+S$:PRINTA$:PRINT#4,A$
  59. 284 A$=" [196]ATE: "+D$:PRINTA$:PRINT#4,A$
  60. 285 PRINT" ":PRINT#4," "
  61. 290 INPUT#2,A$
  62. 295 IFA$="END"THEN340
  63. 300 FORX=1TOLEN(A$):B$=MID$(A$,X,1)
  64. 310 IFB$=""THENB$=CHR$(34):PRINTB$;CHR$(20);
  65. 320 PRINTB$;" [146][157]";:PRINT#4,B$;:NEXTX:PRINT" ":PRINT#4," "
  66. 330 GOTO290
  67. 340 CLOSE2:PRINT#4:CLOSE4
  68. 350 GOTO220
  69. 600 PRINT"[193]RE YOU SURE THAT YOU WANT"
  70. 601 PRINT"TO [203][201][204][204] [193][204][204] MESSAGES?"
  71. 602 PRINT"->  [146][157]";
  72. 603 GETC$:IFC$=""THEN603
  73. 604 IFC$="Y"ORC$="[217]"THENPRINT"[217]ES":GOTO609
  74. 605 IFC$="N"ORC$="[206]"THENPRINT"[206]O":GOTO200
  75. 606 GOTO603
  76. 609 CLOSE1:OPEN1,8,15,"S0:ES*":CLOSE1
  77. 650 CLOSE2:OPEN2,8,2,"@0:SYSOP,S,W":PRINT#2,"0"+CHR$(13):CLOSE2
  78. 660 PRINT"[211]YSOP HAS NO MAIL.":END
  79. 1000 GETC$:IFC$<>CHR$(13)THEN1000
  80. 1010 RETURN
  81.